From 64aabe706f139cce82a10d0c6d1fd9904c51cbcf Mon Sep 17 00:00:00 2001
From: Po Lu <luangruo@yahoo.com>
Date: Wed, 23 Mar 2022 04:01:01 +0000
Subject: [PATCH] Fix crash in haiku_message_to_lisp

* src/haikuselect.c (haiku_message_to_lisp): Block input around
`free'.
---
 src/haikuselect.c | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/haikuselect.c b/src/haikuselect.c
index 21407eedf0e..5a90fe37d22 100644
--- a/src/haikuselect.c
+++ b/src/haikuselect.c
@@ -239,7 +239,10 @@ haiku_message_to_lisp (void *message)
 		memory_full (SIZE_MAX);
 
 	      t1 = build_string (pbuf);
+
+	      block_input ();
 	      free (pbuf);
+	      unblock_input ();
 	      break;
 
 	    case 'SHRT':
-- 
2.30.2